if index("PCADS",a)=0 then a="Q";if a="Q" then do;tr "cdQuitc6!";signal QUIT;end;if a="D" then do;tr "c9Deletec6!";c=c+1;signal START;end
if a="P" then do;tr "caPuzzle";se "0Hz4cfL1305640 #"puz"}i5 50}z0";gu 70;a=result;if a="" then a=puz;puz=a;tr "0Hz4cb"left(puz,50)"z0";signal MENU;end
if a="C" then do;tr "ceClue";se "0Hz4cfL1305640 #"clu"}i5 20}z0";gu 70;a=result;if a="" then a=clu;clu=a;tr "0Hz4cb"left(clu,20)"z0";signal MENU;end
if a="A" then do;tr "caAuthor";se "10Hz4cfL1305640 #"aut"}i20 20}z0";gu 70;a=result;if a="" then a=aut;aut=a;tr "10Hz4cb"left(aut,20)"z0";signal MENU;end
if a="S" then do;tr "cbSave";nc=nc+1;np.nc=left(puz,50,z)left(clu,20,z)left(aut,20,z);c=c+1;signal START;end